#!/usr/bin/env perl
use strict;

###################################
# CLEAN NULL LINES FROM BLIF FILE #
###################################
my $IN  = $ARGV[0];

open(FILE, $IN) or die("Could NOT open $IN, faild");
my @lines = <FILE>;
close FILE;

my $A = ".names gnd";
my $B = ".names null";
my $C = ".names vcc";
my $D = " null";

foreach my $line (@lines) {
    $line =~ s/$A//;
    $line =~ s/$B//;
    $line =~ s/$C//;
    $line =~ s/$D//;
}

open(OUT, ">" . $IN);
print OUT @lines;
close OUT;
